﻿Public Class frmListaJuegos
    Dim rs As ADODB.Recordset 'CREAMOS UN OBJETO RS DE TIPOADO PARA LA CONECCION
    Dim sql As String 'CREAMOS UN VALOR SQL DE TIPO CADENA PARA LOS DIFERENTES PROCESOS DE DATOS DE LA CONECCION DE LA BD (INSERTAR, SELECIONAR)
    Dim codi_juego As String 'CREAMOS UN DATO CODIGO_JUEGO DE TIPO CADENA PARA OBTENER EL CODIGO INGRESADO
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then 'SI ESTA SELECCIONADO
            sql = "SELECT CODI_JUEGO,DESCRIP, COSTO_JUEGO FROM(JUEGOS) WHERE (DESCRIP = '" & RadioButton1.Text & "')" 'PERMITE LA SELECCION DE LOS CAMPO REQUERIDOS DE LA TABLA JUEGOS PARA UNA RESPECTIVA CONSULTA
            rs = coneccion.Execute(sql) 'PERMITE EJECUTAR LA CONECCION
            txtCosto.Text = rs.Fields(2).Value 'PERMITE OBTENER EL VALOR DEL COSTO SEGUN LA COLUMNA 2 DE LA TABLA JUEGO 
            codi_juego = rs.Fields(0).Value.ToString 'RETORNA EL VALOR DEL CODIGO DE JUEGO DE LA TABLA JUEGOS 
            PictureBox1.Load("casinopremium.jpg") 'MUESTRA LA IMAGEN SEGUN LA SELECCION
            PictureBox1.Show()
        Else
            PictureBox1.Hide() 'NO PERMITE LA MUESTRA SI NO ESTA SELECCINADO
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then 'SI ESTA SELECCIONADO
            sql = "SELECT CODI_JUEGO,DESCRIP, COSTO_JUEGO FROM(JUEGOS) WHERE (DESCRIP = '" & RadioButton2.Text & "')" 'PERMITE LA SELECCION DE LOS CAMPO REQUERIDOS DE LA TABLA JUEGOS PARA UNA RESPECTIVA CONSULTA
            rs = coneccion.Execute(sql) 'PERMITE EJECUTAR LA CONECCION
            txtCosto.Text = rs.Fields(2).Value 'PERMITE OBTENER EL VALOR DEL COSTO SEGUN LA COLUMNA 2 DE LA TABLA JUEGO 
            codi_juego = rs.Fields(0).Value.ToString 'RETORNA EL VALOR DEL CODIGO DE JUEGO DE LA TABLA JUEGOS 
            PictureBox1.Load("supercasino.jpg") 'MUESTRA LA IMAGEN SEGUN LA SELECCION
            PictureBox1.Show()
        Else
            PictureBox1.Hide() 'NO PERMITE LA MUESTRA SI NO ESTA SELECCINADO
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked Then 'SI ESTA SELECCIONADO
            sql = "SELECT CODI_JUEGO,DESCRIP, COSTO_JUEGO FROM(JUEGOS) WHERE (DESCRIP = '" & RadioButton3.Text & "')" 'PERMITE LA SELECCION DE LOS CAMPO REQUERIDOS DE LA TABLA JUEGOS PARA UNA RESPECTIVA CONSULTA
            rs = coneccion.Execute(sql) 'PERMITE EJECUTAR LA CONECCION
            txtCosto.Text = rs.Fields(2).Value 'PERMITE OBTENER EL VALOR DEL COSTO SEGUN LA COLUMNA 2 DE LA TABLA JUEGO 
            codi_juego = rs.Fields(0).Value.ToString 'RETORNA EL VALOR DEL CODIGO DE JUEGO DE LA TABLA JUEGOS 
            PictureBox1.Load("casino.jpg") 'MUESTRA LA IMAGEN SEGUN LA SELECCION
            PictureBox1.Show()
        Else
            PictureBox1.Hide() 'NO PERMITE LA MUESTRA SI NO ESTA SELECCINADO
        End If
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        If RadioButton4.Checked Then 'SI ESTA SELECCIONADO
            sql = "SELECT CODI_JUEGO,DESCRIP, COSTO_JUEGO FROM(JUEGOS) WHERE (DESCRIP = '" & RadioButton4.Text & "')" 'PERMITE LA SELECCION DE LOS CAMPO REQUERIDOS DE LA TABLA JUEGOS PARA UNA RESPECTIVA CONSULTA
            rs = coneccion.Execute(sql) 'PERMITE EJECUTAR LA CONECCION
            txtCosto.Text = rs.Fields(2).Value 'PERMITE OBTENER EL VALOR DEL COSTO SEGUN LA COLUMNA 2 DE LA TABLA JUEGO 
            codi_juego = rs.Fields(0).Value.ToString 'RETORNA EL VALOR DEL CODIGO DE JUEGO DE LA TABLA JUEGOS 
            PictureBox2.Load("4billar.jpg") 'MUESTRA LA IMAGEN SEGUN LA SELECCION
            PictureBox2.Show()
        Else
            PictureBox2.Hide() 'NO PERMITE LA MUESTRA SI NO ESTA SELECCINADO
        End If
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        If RadioButton5.Checked Then 'SI ESTA SELECCIONADO
            sql = "SELECT CODI_JUEGO,DESCRIP, COSTO_JUEGO FROM(JUEGOS) WHERE (DESCRIP = '" & RadioButton5.Text & "')" 'PERMITE LA SELECCION DE LOS CAMPO REQUERIDOS DE LA TABLA JUEGOS PARA UNA RESPECTIVA CONSULTA
            rs = coneccion.Execute(sql) 'PERMITE EJECUTAR LA CONECCION
            txtCosto.Text = rs.Fields(2).Value 'PERMITE OBTENER EL VALOR DEL COSTO SEGUN LA COLUMNA 2 DE LA TABLA JUEGO 
            codi_juego = rs.Fields(0).Value.ToString 'RETORNA EL VALOR DEL CODIGO DE JUEGO DE LA TABLA JUEGOS 
            PictureBox2.Load("minipoll.jpg") 'MUESTRA LA IMAGEN SEGUN LA SELECCION
            PictureBox2.Show()
        Else
            PictureBox2.Hide() 'NO PERMITE LA MUESTRA SI NO ESTA SELECCINADO
        End If
    End Sub

    Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
        If RadioButton6.Checked Then 'SI ESTA SELECCIONADO
            sql = "SELECT CODI_JUEGO,DESCRIP, COSTO_JUEGO FROM(JUEGOS) WHERE (DESCRIP = '" & RadioButton6.Text & "')" 'PERMITE LA SELECCION DE LOS CAMPO REQUERIDOS DE LA TABLA JUEGOS PARA UNA RESPECTIVA CONSULTA
            rs = coneccion.Execute(sql) 'PERMITE EJECUTAR LA CONECCION
            txtCosto.Text = rs.Fields(2).Value 'PERMITE OBTENER EL VALOR DEL COSTO SEGUN LA COLUMNA 2 DE LA TABLA JUEGO 
            codi_juego = rs.Fields(0).Value.ToString 'RETORNA EL VALOR DEL CODIGO DE JUEGO DE LA TABLA JUEGOS 
            PictureBox2.Load("AERO.jpg") 'MUESTRA LA IMAGEN SEGUN LA SELECCION
            PictureBox2.Show()
        Else
            PictureBox2.Hide() 'NO PERMITE LA MUESTRA SI NO ESTA SELECCINADO
        End If
    End Sub

    Private Sub btnVerificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerificar.Click
        Dim mostrar As New Resultados(txtAPaterno.Text, txtAMaterno.Text, txtNombre.Text, txtCodigo.Text) 'PERMITE CREAR UN VALOR  DENOMINADO MOSTRAR Y AESTE LE RETORNA LOS VALORES DEL METODO RESULTADOS CON SUS REPECTIVOS DATOS
        mostrar.Show() 'MUESTRA LOS DATOS
    End Sub

    Public Sub llenar(ByVal Resultado As String)
        sql = "SELECT CODI_CLIEN, NOMB_CLIEN, PATE_CLIEN, MATE_CLIEN  FROM CLIENTE WHERE (CODI_CLIEN = '" & Resultado & "')" 'SELECCIONA DE LA TABLA CLIENTE LOS DATOS REQUERIDOS PARA LA CONSULTA
        rs = coneccion.Execute(sql) 'PERMITE EJECUTAR LA CONECCION
        txtNombre.Text = rs.Fields(1).Value 'RETORNA EL VALOR DE LA COLUMNA 1 DE LA TABLA CLIENTE
        txtAPaterno.Text = rs.Fields(2).Value 'RETORNA EL VALOR DE LA COLUMNA 2 DE LA TABLA CLIENTE
        txtAMaterno.Text = rs.Fields(3).Value 'RETORNA EL VALOR DE LA COLUMNA 3 DE LA TABLA CLIENTE
        txtCodigo.Text = Resultado 'RETORNA EL RESULTADO DE LA TBALA CLIENTE
    End Sub

    Private Sub frmListaJuegos_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
        llenar(Resultado) 'ESTE METODO PERMITE EL LLENADO DE  LOS DATOS HACIENDO DOBLECLIK SI ESTO DATOS ESTAN INGRESADOS 

    End Sub

    Private Sub frmListaJuegos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conectar() 'PERMITE LA INICIALIZACION DE LA CONECCION
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtCodigo.Text = "" 'LIMPIATEXTO
        txtAPaterno.Text = "" 'LIMPIATEXTO
        txtAMaterno.Text = "" 'LIMPIATEXTO
        txtNombre.Text = "" 'LIMPIATEXTO
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        sql = "INSERT INTO REGISTRO_JUEGO (CODI_CLIEN, CODI_JUEGO, FECHA_PEDIDO, NUME_JUEGOS) VALUES ('" & txtCodigo.Text & "','" & codi_juego & "','" & FechaActual.Value.ToString & "','" & numero_juegos.Value.ToString & "')" 'INSERTA DATOS A LA TABLA REGISTRO JUEGOS
        rs = coneccion.Execute(sql) 'EJECUTA LA CONECCION
        Dispose() 'VERIFICA LA DISPOSICION DE LA CONECCION
    End Sub

    Private Sub numero_juegos_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numero_juegos.ValueChanged
        txtTotalPagar.Text = CDbl(txtCosto.Text) * numero_juegos.Value 'MUESTRA EL CALCULO DEL TOTAL A PAGAR
    End Sub

    Private Sub frmListaJuegos_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        txtTotalPagar.Text = CDbl(txtCosto.Text) * numero_juegos.Value 'MUESTRA EL CALCULO DEL TOTAL A PAGAR
    End Sub
End Class